Fritz: All Fritz/All Fritz.zip/All Fritz/FILES/COMMADIO/RBBS1.LZH/EXITRBBS.BAS

BASIC Source File | 1985-09-30 | 2KB | 30 lines

1000 ' Program Name -- EXITRBBS
1010 ' Author -------- D. Thomas Mack
1020 ' Description:
1030 ' When exiting from RBBS-PC.EXE to either DOS (as a remote SYSOP)
1040 ' or to a "DOOR", it is necessary to
1050 '   1.  Keept the carrier up on the communications port so that
1060 '       the user is not disconnected, and
1070 '   2.  Clear the current contents of memory (i.e. terminating
1080 '       RBBR-PC.EXE) so that the user can have access to all
1090 '       available memory.
1100 ' This was accomplished with Version 1.0 of the BASIC compiler
1110 ' by issuing the SYSTEM command which closed all files that were
1120 ' still open.  RBBS-PC closed the communication file and kept
1140 ' carrier up by keeping the DTR bit (Data Terminal Ready) on
1150 ' in the MCR (modem control register) after the communications
1165 ' file was closed and prior to issuing the SYSTEM command.
1166 ' Regretably, beginning with Version 2.0 of the BASIC compiler,
1170 ' the SYSTEM command closes ALL files (even the closed comm-
1180 ' unications file) and, in so closing, causes the carrier to
1190 ' to drop.  Therefore, with Version 2.0 of the BASIC compiler
1200 ' RBBS-PC.EXE "RUN"s to EXITRBBS because the RUN command only
1210 ' closes the files that are still open (leaving the closed comm-
1220 ' unications file untouched and with carrier still up).  EXITRBBS
1230 ' in turn issues the SYSTEM command so that it is cleared from
1240 ' memory and DOS will continue processing the ".BAT" file that
1250 ' was first used to invoke RBBS-PC and which checks for the
1260 ' .BAT file that is dynamically built for "doors" and exits by
1270 ' remote SYSOP's to DOS (i.e. RCTTY.BAT).
1280 SYSTEM